home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / b / b.lha / B / src / bint / b2gen.h < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-24  |  588 b   |  26 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2.  
  3. /*
  4.   $Header: b2gen.h,v 1.4 85/08/22 16:42:31 timo Exp $
  5. */
  6.  
  7. #define Is_node(t) ((t) != NilTree && Is_parsetree(t))
  8.  
  9. extern int nextvarnumber; /* Counts local targets (including formals) */
  10. extern value formals, locals, globals, mysteries, refinements;
  11. extern string gentab[];
  12.  
  13. #define NTYPES (FORMAL+1)
  14.  
  15. struct state {
  16.     parsetree h_last;
  17.     parsetree *h_wanthere;
  18.     parsetree h_bpchain;
  19. };
  20.  
  21. #define f_expr(p) fix(p, 'v') /* "evaluate" */
  22. #define f_targ(p) fix(p, 'l') /* "locate" */
  23.  
  24. value copydef();
  25. bool modify_tag();
  26.